MiraMonVector: fix a case of mutirecord (lists) in some fields

Author: AbelPau

ogr/ogrsf_frmts/miramon/ogrmiramonlayer.cpp

@@ -2249,10 +2249,20 @@ OGRErr OGRMiraMonLayer::TranslateFieldsValuesToMM(OGRFeature *poFeature)
                         &(hMMFeature.pRecords[nIRecord].pField),
                         &hMMFeature.pRecords[nIRecord].nMaxField,
                         hMMFeature.pRecords[nIRecord].nNumField,
-                        MM_INC_NUMBER_OF_FIELDS,
+                        (nIRecord == 0)
+                            ? MM_INC_NUMBER_OF_FIELDS
+                            : hMMFeature.pRecords[nIRecord - 1].nMaxField,
                         hMMFeature.pRecords[nIRecord].nNumField))
                     return OGRERR_NOT_ENOUGH_MEMORY;
 
+                if (nIRecord > 0)
+                {
+                    // The number of fields of this new record is the same as the
+                    // last one
+                    hMMFeature.pRecords[nIRecord].nNumField =
+                        hMMFeature.pRecords[nIRecord - 1].nNumField;
+                }
+
                 if (phMiraMonLayer->nCharSet != MM_JOC_CARAC_UTF8_DBF)
                 {
                     // MiraMon encoding is ISO 8859-1 (Latin1) -> Recode from UTF-8
@@ -2311,10 +2321,20 @@ OGRErr OGRMiraMonLayer::TranslateFieldsValuesToMM(OGRFeature *poFeature)
                         &(hMMFeature.pRecords[nIRecord].pField),
                         &hMMFeature.pRecords[nIRecord].nMaxField,
                         hMMFeature.pRecords[nIRecord].nNumField,
-                        MM_INC_NUMBER_OF_FIELDS,
+                        (nIRecord == 0)
+                            ? MM_INC_NUMBER_OF_FIELDS
+                            : hMMFeature.pRecords[nIRecord - 1].nMaxField,
                         hMMFeature.pRecords[nIRecord].nNumField))
                     return OGRERR_NOT_ENOUGH_MEMORY;
 
+                if (nIRecord > 0)
+                {
+                    // The number of fields of this new record is the same as the
+                    // last one
+                    hMMFeature.pRecords[nIRecord].nNumField =
+                        hMMFeature.pRecords[nIRecord - 1].nNumField;
+                }
+
                 if (eFSType == OFSTBoolean)
                 {
                     if (panValues[nIRecord] == 1)
@@ -2382,10 +2402,20 @@ OGRErr OGRMiraMonLayer::TranslateFieldsValuesToMM(OGRFeature *poFeature)
                         &(hMMFeature.pRecords[nIRecord].pField),
                         &hMMFeature.pRecords[nIRecord].nMaxField,
                         hMMFeature.pRecords[nIRecord].nNumField,
-                        MM_INC_NUMBER_OF_FIELDS,
+                        (nIRecord == 0)
+                            ? MM_INC_NUMBER_OF_FIELDS
+                            : hMMFeature.pRecords[nIRecord - 1].nMaxField,
                         hMMFeature.pRecords[nIRecord].nNumField))
                     return OGRERR_NOT_ENOUGH_MEMORY;
 
+                if (nIRecord > 0)
+                {
+                    // The number of fields of this new record is the same as the
+                    // last one
+                    hMMFeature.pRecords[nIRecord].nNumField =
+                        hMMFeature.pRecords[nIRecord - 1].nNumField;
+                }
+
                 hMMFeature.pRecords[nIRecord].pField[iField].iValue =
                     panValues[nIRecord];
 
@@ -2425,10 +2455,20 @@ OGRErr OGRMiraMonLayer::TranslateFieldsValuesToMM(OGRFeature *poFeature)
                         &(hMMFeature.pRecords[nIRecord].pField),
                         &hMMFeature.pRecords[nIRecord].nMaxField,
                         hMMFeature.pRecords[nIRecord].nNumField,
-                        MM_INC_NUMBER_OF_FIELDS,
+                        (nIRecord == 0)
+                            ? MM_INC_NUMBER_OF_FIELDS
+                            : hMMFeature.pRecords[nIRecord - 1].nMaxField,
                         hMMFeature.pRecords[nIRecord].nNumField))
                     return OGRERR_NOT_ENOUGH_MEMORY;
 
+                if (nIRecord > 0)
+                {
+                    // The number of fields of this new record is the same as the
+                    // last one
+                    hMMFeature.pRecords[nIRecord].nNumField =
+                        hMMFeature.pRecords[nIRecord - 1].nNumField;
+                }
+
                 char szChain[MAX_SIZE_OF_FIELD_NUMBER_WITH_MINUS];
                 MM_SprintfDoubleSignifFigures(
                     szChain, sizeof(szChain),